home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03120_Script_3120 < prev   
Text File  |  1983-01-27  |  2KB  |  41 lines
  1. on gestione_cursore_articolo
  2.   global ss,valore
  3.   set a to the mousev
  4.   if a > 66 and a <= 440 then
  5.     set unita to 378.0 / the lineCount of member "articolo"
  6.     set the locv of sprite 16 to a
  7.     if ss < integer((a-64) / unita) then
  8.       global qrighe_rimane
  9.       if voidp (qrighe_rimane) then set qrighe_rimane to 1
  10.       if the scrolltop of member 700 < (the lineCount of member "articolo" * valore)-(valore*qrighe_rimane+1) then
  11.         set the scrollTop of member "articolo" to the scrolltop of member "articolo" + (valore * (integer((a-64) / unita)-ss))
  12.         set  ss to integer((a-64) / unita)  
  13.       end if
  14.       -- scrollbyline member "articolo",  integer((a-64) / unita)-ss
  15.     end if
  16.     if ss > integer((a-64) / unita) then
  17.       if the scrolltop of member 700 > 1 then
  18.         set the scrollTop of member "articolo" to the scrolltop of member "articolo" + (valore * (integer((a-64) / unita)-ss))
  19.         -- scrollbyline member "articolo",  integer((a-64) / unita) - ss
  20.         set ss to integer((a-64) / unita)
  21.       end if
  22.     end if
  23.     updatestage
  24.   else
  25.     if the mousev <= 66 then
  26.       set the scrolltop of member 700 to 1
  27.       set the locv of sprite 16 to 64
  28.       set ss to 1
  29.       updatestage
  30.     else
  31.       global qrighe_rimane
  32.       if voidp (qrighe_rimane) then set qrighe_rimane to 1
  33.       set the scrolltop of member 700 to (the lineCount of member 700 * valore)-(valore*qrighe_rimane)
  34.       set the locv of sprite 16 to 440
  35.       set ss to (the linecount of member 700 - qrighe_rimane)
  36.       updatestage
  37.     end if
  38.   end if
  39.   
  40. end
  41.